home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / weights & measur (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  271 lines
  1. 5 rem --------------------------------
  2. 10 rem program to convert
  3. 15 rem between two different
  4. 20 rem weights and measures
  5. 21 rem
  6. 22 rem the screen gives a menu
  7. 23 rem of varoius measures (eg
  8. 24 rem ounce, square foot,
  9. 25 rem fathom).  you are given
  10. 26 rem the choices 'from' (the
  11. 27 rem unit of measure to
  12. 28 rem convert from), 'to' (the
  13. 29 rem unit of measure to
  14. 30 rem convert to), and
  15. 31 rem 'quantity' (the amount
  16. 32 rem to convert - the default
  17. 33 rem is 1).
  18. 34 rem
  19. 35 rem
  20. 36 rem by charlie brown
  21. 37 rem translated for the commodore
  22. 38 rem by donna k. woody
  23. 40 rem --------------------------------
  24. 45 gosub5000
  25. 50 ll$="--------------------------------------"
  26. 55 lx$="                                      "
  27. 100 b1$="[129]                      [146][144]"
  28. 110 b2$="[129] [215][197][201][199][200][212][211][160][193][206][196][160][205][197][193][211][213][210][197][211] [146][144]"
  29. 120 b3$="[129]      [195][207][206][214][197][210][211][201][207][206]      [146][144]"
  30. 130 printchr$(147):poke781,3:poke782,9:syss:printb1$
  31. 132 poke781,4:poke782,9:syss:printb2$
  32. 134 poke781,5:poke782,9:syss:printb3$
  33. 135 poke781,6:poke782,9:syss:printb1$
  34. 140 poke781,10:poke782,15:syss:print"1)  [215]eight"
  35. 142 poke781,11:poke782,15:syss:print"2)  [214]olume"
  36. 144 poke781,12:poke782,15:syss:print"3)  [204]ength"
  37. 146 poke781,13:poke782,15:syss:print"4)  [193]rea"
  38. 148 poke781,14:poke782,15:syss:print"5)  [210]ate"
  39. 150 poke781,22:poke782,1:syss:printll$
  40. 160 poke781,23:poke782,2:syss:print"<*> moves to last menu or ends run";
  41. 170 poke781,18:poke782,15:syss:print"[195]hoice: ";:poke198,0:wait198,1:geti$
  42. 172 ifi$="*"then6000
  43. 180 i=val(i$):ifi<1ori>5thenpoke781,16:poke782,0:syss:printlx$:goto170
  44. 190 onigoto1000,1400,1800,2200,2600
  45. 1000 printchr$(147):poke781,1:poke782,11:syss:print"* * [215] [197] [201] [199] [200] [212] [211] * *"
  46. 1010 poke781,3:poke782,3:syss:print"[193][214][207][201][210][196][213][208][207][201][211]        [205][197][212][210][201][195]"
  47. 1020 poke781,4:poke782,1:syss:print"[193]) "n1$(1);tab(20)"[207]) "n1$(15)
  48. 1030 poke781,5:poke782,1:syss:print"[194]) "n1$(2);tab(20)"[208]) "n1$(16)
  49. 1040 poke781,6:poke782,1:syss:print"[195]) "n1$(3);tab(20)"[209]) "n1$(17)
  50. 1050 poke781,7:poke782,1:syss:print"[196]) "n1$(4);tab(20)"[210]) "n1$(18)
  51. 1060 poke781,8:poke782,1:syss:print"[197]) "n1$(5);tab(20)"[211]) "n1$(19)
  52. 1070 poke781,9:poke782,1:syss:print"[198]) "n1$(6);tab(20)"[212]) "n1$(20)
  53. 1080 poke781,10:poke782,1:syss:print"[199]) "n1$(7);tab(20)"[213]) "n1$(21)
  54. 1090 poke781,11:poke782,3:syss:print"[212][210][207][217]";tab(20)"[214]) "n1$(22)
  55. 1100 poke781,12:poke782,1:syss:print"[200]) "n1$(8);tab(22)"[207][212][200][197][210]"
  56. 1110 poke781,13:poke782,1:syss:print"[201]) "n1$(9);tab(20)"[215]) "n1$(23)
  57. 1120 poke781,14:poke782,1:syss:print"[202]) "n1$(10);tab(20)"[216]) "n1$(24)
  58. 1130 poke781,15:poke782,3:syss:print"[193][208][207][212][200][197][195][193][210][201][197][211]";tab(20)"[217]) "n1$(25)
  59. 1140 poke781,16:poke782,1:syss:print"[203]) "n1$(11);tab(20)"[218]) "n1$(26)
  60. 1150 poke781,17:poke782,1:syss:print"[204]) "n1$(12)
  61. 1160 poke781,18:poke782,1:syss:print"[205]) "n1$(13)
  62. 1170 poke781,19:poke782,1:syss:print"[206]) "n1$(14)
  63. 1180 poke781,20:poke782,1:syss:printll$
  64. 1190 gosub3000:ifix=1then100
  65. 1200 gosub4100:ifix=1thengosub4900:goto1190
  66. 1210 gosub3100:poke781,23:poke782,11:syss
  67. 1215 print"[208][210][197][211][211][160][193] [203][197][217]";:poke198,0:wait198,1:getxx$:ifxx$="*"then100
  68. 1220 goto1190
  69. 1400 printchr$(147):poke781,1:poke782,11:syss:print"* * [214][160][207][160][204][160][213][160][205][160][197][160]* *"
  70. 1410 poke781,3:poke782,1:syss:print"[193]) "n2$(1);tab(22)"[209]) "n2$(17)
  71. 1420 poke781,4:poke782,1:syss:print"[194]) "n2$(2);tab(22)"[210]) "n2$(18)
  72. 1430 poke781,5:poke782,1:syss:print"[195]) "n2$(3);tab(22)"[211]) "n2$(19)
  73. 1440 poke781,6:poke782,1:syss:print"[196]) "n2$(4);tab(22)"[212]) "n2$(20)
  74. 1450 poke781,7:poke782,1:syss:print"[197]) "n2$(5);tab(22)"[213]) "n2$(21)
  75. 1460 poke781,8:poke782,1:syss:print"[198]) "n2$(6);tab(22)"[214]) "n2$(22)
  76. 1470 poke781,9:poke782,1:syss:print"[199]) "n2$(7);tab(22)"[215]) "n2$(23)
  77. 1480 poke781,10:poke782,1:syss:print"[200]) "n2$(8);tab(22)"[216]) "n2$(24)
  78. 1490 poke781,11:poke782,1:syss:print"[201]) "n2$(9);tab(22)"[217]) "n2$(25)
  79. 1500 poke781,12:poke782,1:syss:print"[202]) "n2$(10);tab(22)"[218]) "n2$(26)
  80. 1510 poke781,13:poke782,1:syss:print"[203]) "n2$(11);tab(22)"1) "n2$(27)
  81. 1520 poke781,14:poke782,1:syss:print"[204]) "n2$(12);tab(22)"2) "n2$(28)
  82. 1530 poke781,15:poke782,1:syss:print"[205]) "n2$(13);tab(22)"3) "n2$(29)
  83. 1540 poke781,16:poke782,1:syss:print"[206]) "n2$(14);tab(22)"4) "n2$(30)
  84. 1550 poke781,17:poke782,1:syss:print"[207]) "n2$(15);tab(22)"5) "n2$(31)
  85. 1560 poke781,18:poke782,1:syss:print"[208]) "n2$(16)
  86. 1570 poke781,20:poke782,1:syss:printll$
  87. 1580 gosub3000:ifix=1then100
  88. 1590 gosub4200:ifix=1thengosub4900:goto1580
  89. 1600 gosub3200:poke781,23:poke782,11:syss
  90. 1605 print"[208][210][197][211][211][160][193] [203][197][217]";:poke198,0:wait198,1:getxx$:ifxx$="*"then100
  91. 1610 goto1580
  92. 1800 printchr$(147):poke781,1:poke782,11:syss:print"* * [204][160][197][160][206][160][199][160][212][160][200][160]* *"
  93. 1810 poke781,3:poke782,1:syss:print"[193]) "n3$(1);tab(19)"[207]) "n3$(15)
  94. 1820 poke781,4:poke782,1:syss:print"[194]) "n3$(2);tab(19)"[208]) "n3$(16)
  95. 1830 poke781,5:poke782,1:syss:print"[195]) "n3$(3);tab(19)"[209]) "n3$(17)
  96. 1840 poke781,6:poke782,1:syss:print"[196]) "n3$(4);tab(19)"[210]) "n3$(18)
  97. 1850 poke781,7:poke782,1:syss:print"[197]) "n3$(5);tab(19)"[211]) "n3$(19)
  98. 1860 poke781,8:poke782,1:syss:print"[198]) "n3$(6);tab(19)"[212]) "n3$(20)
  99. 1870 poke781,9:poke782,1:syss:print"[199]) "n3$(7);tab(19)"[213]) "n3$(21)
  100. 1880 poke781,10:poke782,1:syss:print"[200]) "n3$(8);tab(19)"[214]) "n3$(22)
  101. 1890 poke781,11:poke782,1:syss:print"[201]) "n3$(9);tab(19)"[215]) "n3$(23)
  102. 1900 poke781,12:poke782,1:syss:print"[202]) "n3$(10);tab(19)"[216]) "n3$(24)
  103. 1910 poke781,13:poke782,1:syss:print"[203]) "n3$(11);tab(19)"[217]) "n3$(25)
  104. 1920 poke781,14:poke782,1:syss:print"[204]) "n3$(12);tab(19)"[218]) "n3$(26)
  105. 1930 poke781,15:poke782,1:syss:print"[205]) "n3$(13);tab(19)"1) "n3$(27)
  106. 1940 poke781,16:poke782,1:syss:print"[206]) "n3$(14);tab(19)"2) "n3$(28)
  107. 1950 poke781,20:poke782,1:syss:printll$
  108. 1960 gosub3000:ifix=1then100
  109. 1970 gosub4300:ifix=1thengosub4900:goto1960
  110. 1980 gosub3300:poke781,23:poke782,11:syss
  111. 1985 print"[208][210][197][211][211][160][193] [203][197][217]";:poke198,0:wait198,1:getxx$:ifxx$="*"then100
  112. 1990 goto1960
  113. 2200 printchr$(147):poke781,1:poke782,15:syss:print"* * [193] [210] [197] [193] * *"
  114. 2210 poke781,3:poke782,1:syss:print"[193]) "n4$(1);tab(20)"[200]) "n4$(8)
  115. 2220 poke781,4:poke782,1:syss:print"[194]) "n4$(2);tab(20)"[201]) "n4$(9)
  116. 2230 poke781,5:poke782,1:syss:print"[195]) "n4$(3);spc(5)"[202]) "n4$(10)
  117. 2240 poke781,6:poke782,1:syss:print"[196]) "n4$(4);tab(20)"[203]) "n4$(11)
  118. 2250 poke781,7:poke782,1:syss:print"[197]) "n4$(5);tab(20)"[204]) "n4$(12)
  119. 2260 poke781,8:poke782,1:syss:print"[198]) "n4$(6);tab(20)"[205]) "n4$(13)
  120. 2270 poke781,9:poke782,1:syss:print"[199]) "n4$(7);tab(20)"[206]) "n4$(14)
  121. 2280 poke781,20:poke782,1:syss:printll$
  122. 2290 gosub3000:ifix=1then100
  123. 2300 gosub4400:ifix=1thengosub4900:goto2290
  124. 2310 gosub3400:poke781,23:poke782,11:syss
  125. 2315 print"[208][210][197][211][211][160][193] [203][197][217]";:poke198,0:wait198,1:getxx$:ifxx$="*"then100
  126. 2320 goto2290
  127. 2600 printchr$(147):poke781,1:poke782,13:syss:print"* * [210] [193] [212] [197] * *"
  128. 2610 poke781,3:poke782,1:syss:print"[193]) "n5$(1);tab(20)"[199]) "n5$(7)
  129. 2620 poke781,4:poke782,1:syss:print"[194]) "n5$(2);tab(20)"[200]) "n5$(8)
  130. 2630 poke781,5:poke782,1:syss:print"[195]) "n5$(3);spc(4)"[201]) "n5$(9)
  131. 2640 poke781,6:poke782,1:syss:print"[196]) "n5$(4);tab(20)"[202]) "n5$(10)
  132. 2650 poke781,7:poke782,1:syss:print"[197]) "n5$(5);tab(20)"[203]) "n5$(11)
  133. 2660 poke781,8:poke782,1:syss:print"[198]) "n5$(6);tab(20)"[204]) "n5$(12)
  134. 2670 poke781,20:poke782,1:syss:printll$
  135. 2680 gosub3000:ifix=1then100
  136. 2690 gosub4500:ifix=1thengosub4900:goto2680
  137. 2700 gosub3500:poke781,23:poke782,11:syss
  138. 2705 print"[208][210][197][211][211][160][193] [203][197][217]";:poke198,0:wait198,1:getxx$:ifxx$="*"then100
  139. 2710 goto2680
  140. 3000 ix=0:poke781,21:poke782,